home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / higgs-butterfly.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  875 b   |  29 lines
  1. #------Lparser/Mutator------Martin Higgs--------
  2. # This file produces a butterfly. (not yet finalised)
  3. 10
  4. 20
  5. 80
  6. L
  7. L=[A][B][C][T][H] # axiom - butterfly
  8. # --- thorax / abdomen
  9. A=[cc^(90)f(-2)FcccaFaFaFaFaFaF]
  10. a='(.75)&(5)
  11. # --- head --- eyes --- /   --- tongue - atennae ---
  12. H=[cccc&(90)'F[f(-4)c+(90)''Z][f(-4)c-(90)''Z][J][K][M]]
  13. # --- tongue ---
  14. J=ccccccjF''F''&F''&&F''&&F''&&F''&&F''&&F''&&F
  15. j=!!!!'''''''
  16. # --- antenae ---
  17. K=ccc+<<j^^F''F''F''F''F''F''^F''^F''^F
  18. M=ccc->>j^^F''F''F''F''F''F''^F''^F''^F
  19. k=!!!!''''''''
  20. # --- wings ---
  21. B=+(25)[{-(90)&&fff^^f^^^z^^f^^f}][c{+(-90)^(5)ff^^^f^^f^^z^^^f)}]
  22. C=|-(25)[{-(90)&&fff^^f^^^z^^f^^f}][c{+(-90)^(5)ff^^^f^^f^^z^^^f)}]
  23. # --- legs ---
  24. N=|[ccc!!!!!!!!!!!!^^F^Z^Z]         # leg 1
  25. O=|[ccc!!!!!!!!!!!!^^F^Z^^Z]         # leg 2
  26. P=|[ccc!!!!!!!!!!!!^^F^^^Z^^^Z]       # leg 2
  27. T=[-N][+N][-^O][+^O][<-^^^P][>+^^^P]  # six legs
  28. @
  29.